home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_B.d64 / mathe 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  299 lines
  1. 1 print
  2. 2 input"[147]monitor oder fernseher (m/f) ";f$
  3. 3 if f$="f"then 6
  4. 4 if f$="m"then 9
  5. 5 goto 1
  6. 6 poke53281,0
  7. 7 poke53280,0
  8. 8 rem **********************************
  9. 9 printchr$(147)
  10. 10 print
  11. 12 print"               hauptmenue  "
  12. 14 print"               ----------         "
  13. 20 print"                                       "
  14. 22 print
  15. 24 print"              der zylinder             "
  16. 25 print"              ------------
  17. 26 [153]
  18. 28 [153]
  19. 30 [153]"    berechnung eines vollzylinders [a] "
  20. 35 [153]
  21. 36 [153]"    volumen,masse,auftrieb,tragkraft   "
  22. 39 [153]"    radius und hoehe    "
  23. 40 [153]
  24. 43 [153]"    berechnung eines hohlzylinders [b] "
  25. 45 [153]
  26. 50 [153]"    tips zur benutzung             [c] "
  27. 55 [153]
  28. 56 [153]"    ende                           [d] "
  29. 59 [153]
  30. 60 [153]
  31. 90 [133]"         bitte waehlen sie ";w$
  32. 95 [143] *********************************
  33. 100 [139] w$[178]"a"[167] 2000
  34. 110 [139] w$[178]"b"[167] 3000
  35. 115 [139] w$[178]"d"[167] 10000
  36. 120 [139] w$[178]"c"[167] 20000
  37. 130 [137] 9
  38. 150 [153][199](147)
  39. 155 [153]
  40. 160 [153]" ist die berechnug des volumens        "
  41. 162 [133]" erwuenscht ";r$
  42. 165 [139] r$[178]"n"[167] 265
  43. 170 [139] r$[178]"j"[167] 210
  44. 210 [153]
  45. 215 [153]" zur volumen-berechnung werden benoetigt "
  46. 220 [153]
  47. 225 [133]" 1.  der radius ";r
  48. 230 [133]" 2.  die hoehe bzw. laenge ";h
  49. 240 [136] v[178](r[172]r)[172]3.1415927[172]h
  50. 245 [145] v [137] 260,390,500
  51. 250 [153]
  52. 260 [153]" das volumen betraegt ";v;"^3.
  53. 265 print
  54. 270 print" wird die berechnung der masse
  55. 280 [133]" gewuenscht ";r$
  56. 285 [139] r$[178]"n"[167] 300
  57. 290 [139] r$[178]"j"[167] 450
  58. 300 [153]
  59. 305 [153]" auftriebsberechnung nur mit ausfuhrung"
  60. 307 [153]" der obrigen berechnungen moeglich,wenn"
  61. 308 [153]" nicht vorhanden dann druecke n ! "
  62. 310 [133]" berechnung des auftriebs erwuenscht ";d$
  63. 315 [139] d$[178]"n"[167] 415
  64. 320 [139] d$[178]"j"[167] 350
  65. 350 [153]
  66. 355 [153]
  67. 360 [153] " zur auftriebs-berechnung werden       "
  68. 362 [153]" benoetigt: "
  69. 365 [153]
  70. 380 [153]" die dichte der fluessigkeit in der der"
  71. 385 [133]" koerper sich befindet ";f
  72. 390 [136] a[178]v[172]f
  73. 395 [145] a [137] 620,630
  74. 400 [153]" der auftrieb betraegt ";a;"t o. kg o.g"
  75. 410 [153]
  76. 412 [137] 600
  77. 415 [133]" nochmal..... ";n$
  78. 420 [139] n$[178]"n"[167] 2000
  79. 430 [139] n$[178]"j"[167] 155
  80. 450 [153]" ist das volumen im computer durch die "
  81. 452 [133]" volumen-berechnung vorhanden ";f$
  82. 455 [139] f$[178]"n"[167] 1200
  83. 460 [139] f$[178]"j"[167] 485
  84. 485 [153]
  85. 486 [153]" zur massen-berechnung werden benoetigt"
  86. 487 [153]
  87. 495 [133]" die dichte des materials ";m
  88. 499 [153]
  89. 500 [136] g[178]v[172]m
  90. 502 [145] g [137] 620,630
  91. 505 [153]" die masse betraegt"; g ;"."
  92. 510 [137] 300
  93. 600 [153]
  94. 601 [153]" tragbarkeitsberechnung ist nur mit    "
  95. 602 [153]" ausfuerung der obrigen berechnungen   "
  96. 603 [153]" moeglich . wenn diese berechnungen   "
  97. 604 [153]" nicht vorhanden sind druecke n !! "
  98. 605 [133]" sind angaben zur tragkraft erwuenscht ";s$
  99. 607 [139] s$[178]"n"[167] 415
  100. 609 [139] s$[178]"j"[167] 610
  101. 610 [153]
  102. 620 [139] a[177]g [167] 635
  103. 625 [139] a[179]g [167] 630
  104. 630 [153]" der koerper schwimmt nicht.":[137] 810
  105. 635 [153]" der koerper schwimmt.":[137] 800
  106. 800 [136] t[178]a[171]g
  107. 805 [153]" die tragkraft betraegt ";t;"."
  108. 810 [137] 415
  109. 1200 [153]
  110. 1210 [153]" soll das volumen mit dem computer     "
  111. 1220 [133] " errechnet werden ";g$
  112. 1230 [139] g$[178]"n"[167] 1300
  113. 1240 [139] g$[178]"j"[167] 1400
  114. 1250 [153]" j oder n ":[137] 1200
  115. 1300 [153]
  116. 1310 [133]" eingabe des volumens ";v
  117. 1320 [145] v [137] 500
  118. 1350 [137] 495
  119. 1400 [153]
  120. 1401 [153]" zur volumen-berechnung werden benoetigt"
  121. 1405 [153]
  122. 1410 [133]" der radius ";r
  123. 1420 [133]" die laenge bzw.die hoehe ";h
  124. 1430 [136] v[178](r[172]r)[172]3.1415927[172]h
  125. 1432 [145] v [137] 500
  126. 1435 [153]
  127. 1440 [153]" das volumen betraegt ";v;"^3."
  128. 1445 [137] 485
  129. 1900 [143] *******************************
  130. 2000 [153][199](147)
  131. 2010 [153]
  132. 2020 [153]"             neben-menue   "
  133. 2025 [153]"             -----------    "
  134. 2030 [153]
  135. 2040 [153]
  136. 2050 [153]"  masse,volumen,auftrieb,tragkraft [a] "
  137. 2060 [153]
  138. 2070 [153]"  hoehe                            [b] "
  139. 2080 [153]
  140. 2090 [153]"  radius                           [c] "
  141. 2092 [153]
  142. 2095 [153]"  zurueck ins hauptmenue           [d] "
  143. 2100 [153]
  144. 2110 [133]"         bitte waehlen sie ";a$
  145. 2190 [143] *******************************
  146. 2200 [139] a$[178]"a"[167] 150
  147. 2210 [139] a$[178]"b"[167] 2700
  148. 2220 [139] a$[178]"c"[167] 2500
  149. 2230 [139] a$[178]"d"[167] 9
  150. 2240 [137] 2000
  151. 2500 [153][199](147)
  152. 2510 [153]
  153. 2520 [153]" es werden benoetigt : "
  154. 2530 [133] " 1. das volumen ";v
  155. 2540 [133] " 2. die hoehe ";h
  156. 2550 [136] r[178][186]((v[173]h)[173]3.1415927)
  157. 2560 [153]
  158. 2570 [153]" der radius betraegt ";r;"."
  159. 2580 [153]
  160. 2590 [133] " nochmal..... ";s$
  161. 2600 [139] s$[178]"j"[167] 2500
  162. 2610 [139] s$[178]"n"[167] 2000
  163. 2620 [137] 2580
  164. 2700 [153][199](147)
  165. 2710 [153]
  166. 2720 [153]" es werden benoetigt :"
  167. 2730 [153]
  168. 2740 [133]" 1. das volumen ";w
  169. 2750 [133]" 2. der radius  ";r
  170. 2760 [136] h[178]w[173](r[172]r)[173]3.1415927
  171. 2770 [153]
  172. 2780 [153]" die hoehe betraegt ";h;"."
  173. 2790 [153]
  174. 2800 [133] " nochmal..... ";s$
  175. 2810 [139] s$[178]"j"[167] 2700
  176. 2820 [139] s$[178]"n"[167] 2000
  177. 2830 [137] 2790
  178. 3000 [153][199](147)
  179. 3005 [143] *******************************
  180. 3010 [153]
  181. 3014 [153]"              neben-menue              "
  182. 3016 [153]"              -----------              "
  183. 3018 [153]
  184. 3019 [153]
  185. 3020 [153]" was ist vorhanden :"
  186. 3030 [153]
  187. 3040 [153]" der innen-und aussenradius +hoehe [a] "
  188. 3050 [153]
  189. 3060 [153]" der innen-und aussendurchmesser"
  190. 3070 [153]" +hoehe                            [b] "
  191. 3071 [153]
  192. 3072 [153]" zurueck ins hauptmenue            [c] "
  193. 3075 [153]
  194. 3080 [153]
  195. 3090 [133]"           bitte waehlen sie ";v$
  196. 3095 [143] *******************************
  197. 3100 [139] v$[178]"a"[167] 3200
  198. 3110 [139] v$[178]"b"[167] 3600
  199. 3115 [139] v$[178]"c"[167]  9
  200. 3120 [137] 3000
  201. 3200 [153][199](147)
  202. 3210 [153]
  203. 3220 [153]" es wird benoetigt :"
  204. 3230 [153]
  205. 3240 [133]" 1. der aussenradius ";a
  206. 3250 [133]" 2. der innenradius ";i
  207. 3260 [133]" 3. die hoehe bzw. die laenge ";h
  208. 3262 [136] b[178]a[174]2[172]3.1415927[172]h
  209. 3263 [145] b [137] 3469
  210. 3265 [136] c[178]i[174]2[172]3.1415927[172]h
  211. 3270 [136] v[178]b[171]c
  212. 3275 [145] v [137] 3430
  213. 3280 [153]" das volumen des hohlzylinders betraegt"
  214. 3290 [153]v;"^3."
  215. 3300 [153]
  216. 3310 [133]" wird die gewichtsberechnung gewuenscht";e$
  217. 3330 [139] e$[178]"n"[167] 3000
  218. 3340 [139] e$[178]"j"[167] 3400
  219. 3400 [153]
  220. 3410 [153]" es wird benotigt :"
  221. 3420 [133]" die dichte des materials ";r
  222. 3430 [136] c[178]v[172]r
  223. 3440 [145] b [137] 3500,3520,3525
  224. 3445 [153]
  225. 3450 [153]" das gewicht betraegt ";c;"."
  226. 3455 [153]
  227. 3457 [153] " ist auftriebskraftberechnung          "
  228. 3458 [133]" erwuenscht ";s$
  229. 3459 [139] s$[178]"n"[167] [137] 3000
  230. 3461 [139] s$[178]"j"[167] [137] 3463
  231. 3463 [153]
  232. 3465 [153]" es wird benoetigt :"
  233. 3467 [133]" die dichte der fluessigkeit ";d
  234. 3469 [136] a[178]d[172]b
  235. 3470 [145] a [137] 3500,3510,3520
  236. 3471 [153]
  237. 3473 [153]" der auftrieb betraegt ";a;"."
  238. 3475 [153]
  239. 3477 [153]" werden angaben zur tragkraft "
  240. 3479 [133]" gewuenscht ";w$
  241. 3481 [139] w$[178]"j"[167] 3500
  242. 3490 [139] w$[178]"n"[167] 3000
  243. 3495 [153]" j oder n ":[137] 3475
  244. 3500 [139] c[177]a [167] [153]" der koerper schwimmt nicht.":[137] 4000
  245. 3520 [139] c[179]a [167] [153]" der koerper schwimmt,mit einer trag-"
  246. 3525 [136] t[178]a[171]c
  247. 3530 [153]" kraft von ";t;".":[137] 4000
  248. 3540 [133]"2";a$
  249. 3600 [153][199](147)
  250. 3610 [153]
  251. 3620 [153]" es werden benoetigt: "
  252. 3630 [153]
  253. 3640 [133]" der aussendurchmesser ";s
  254. 3645 [133]" der innendurchmesser ";n
  255. 3647 [133]" die hoehe bzw. laenge ";h
  256. 3650 [136] a[178]s[173]2
  257. 3660 [136] i[178]n[173]2
  258. 3665 [153]
  259. 3670 [137] 3262
  260. 4000 [153]
  261. 4010 [153]" druecke space fuer weiter ."
  262. 4020 [161] a$:[139] a$[178]""[167] 4020
  263. 4030 [139] a$[178][199](32) [167] 3000
  264. 10000 [153][199](147)
  265. 10001 [153]" es hat mich gefreut ihnen behilflich "
  266. 10002 [153]" zu sein ."
  267. 10003 [162]
  268. 20000 [153][199](147)
  269. 20010 [153]
  270. 20020 [153]"             tips zur benutzung        "
  271. 20030 [153]"             ******************        "
  272. 20040 [153]
  273. 20050 [153]" 1. beantworte alle fragen mit j oder n."
  274. 20060 [153]
  275. 20070 [153] " 2. achte auf gleiche masseinheiten.   "
  276. 20080 [153]
  277. 20090 [153] " 3. lies alle texte im programm sorg-  "
  278. 20100 [153] "    faeltig durch."
  279. 20110 [153]
  280. 20111 [153] " 4. um einen menuepunkt anzuwaehlen    "
  281. 20120 [153] "    druecke den buchstaben der eckigen "
  282. 20130 [153]"    klammer.     "
  283. 20135 [153]
  284. 20138 [153]
  285. 20140 [153]"   druecke space um ins haupt-menue zu "
  286. 20150 [153]"   gelangen ."
  287. 20160 [161] a$: [139] a$[178]""[167] 20160
  288. 20170 [139] a$[178][199](32) [167] 9
  289. 30000 [143]
  290. 30010 [143] *****************************
  291. 30020 [143] **** name des prg:mathe 2 ***
  292. 30030 [143] **** autor:alexander arndt***
  293. 30040 [143] **** datum:26.06.1990     ***
  294. 30050 [143] **** disketten-nr.: a6    ***
  295. 30060 [143] *****************************
  296. 30065 [143] 29 blocks auf dem commodore 64
  297. 30070 [143]
  298. 30080 [143]      e    n    d    e
  299.